10 POKE 53280,0
20 POKE 53281,0
30 PRINT"[147]BENZIN"TAB(11)"VERSION 1.2"
40 PRINTTAB(1)"BENZIN"TAB(12)"VERSION 1.2"
50 PRINTTAB(2)"BENZIN"TAB(13)"VERSION 1.2"
51 PRINTTAB(3)"[158]BENZIN"TAB(14)"VERSION 1.2"
52 PRINTTAB(4)"BENZIN"TAB(15)"VERSION 1.2"
53 PRINTTAB(5)"BENZIN"TAB(16)"VERSION 1.2"
54 PRINTTAB(6)"GESCHRIEBEN VON THOMAS SCHULZ"
55 PRINTTAB(9)"[159]BENZIN"TAB(20)"VERSION 1.2"
56 PRINTTAB(10)"BENZIN"TAB(21)"VERSION 1.2"
57 PRINTTAB(11)"BENZIN"TAB(22)"VERSION 1.2"
58 PRINTTAB(12)"[149]BENZIN"TAB(23)"VERSION 1.2"
59 PRINTTAB(13)"BENZIN"TAB(24)"VERSION 1.2"
60 PRINTTAB(14)"BENZIN"TAB(25)"VERSION 1.2"
90 PRINT"[152]WEITER MIT (W)"
100 INPUT A$
110 IF A$="W"THEN 130
120 GOTO 10
130 POKE 53280,0
140 POKE 53281,0
150 PRINT"[147]MOECHTEN SIE DIE ANLEITUNG"
160 PRINT"(J/N)
170 [133] B$
180 [139] B$[178]"J" [167] 200
185 [139] B$[178]"N" [167] 210
190 [137] 130
200 [141] 5000
210 [151] 53280,0
220 [151] 53281,0
230 [153]"GEBEN SIE DAS KENNZEICHEN EIN"
240 [133] C$
250 [153]"GEBEN SIE DIE GEFAHRENEN KM. EIN"
260 [133] A
270 [153]"GEBEN SIE DIE GTANKTE MENGE EIN"
275 [133] B
280 [153]"GEBEN SIE DIE BENZINKOSTEN EIN"
290 [133] C
300 [153]"ALLE ANGABEN RICHTIG ? (J/N)"
310 [133] D$
320 [139] D$[178]"N" [167] 230
330 [139] D$[178]"J" [167] 350
340 [137] 300
350 [136] X1[178]B[173]A[172]100
360 [136] X2[178]C[173]A[172]100
370 [153] "LOADDAS FAHRZEUG MIT DEM KENNZEICHEN"
375 [153] C$
380 [153]"VERBRAUCHT AUF 100 KM."
385 [153] X1 "LITER TREIBSTOFF"
400 [153]"DAS KOSTET AUF 100 KM."
405 [153] X2 "DM"
410 [153]"MOECHTEN SIE DAS PROGAMM"
420 [153]"WIEDERHOLEN (W) ?"
430 [153]"BEENDEN (E) ?"
440 [133] E$
450 [139] E$[178]"W"[167] 10
460 [139] E$[178]"E"[167] 7000
470 [137] 410
5000 [151] 53280,12
5010 [151] 53281,12
5020 [153]"LOADSTOPANLEITUNG ZU BENZIN V1.2"
5030 [153]"DIESES PROGRAMM DIENT ZUR "
5035 [153]"BERECHNUNG DES BENZINVERBRAUCH"
5040 [153]"UND DER KOSTEN AU 100 KM."
5050 [153]"DAZU EINFACH DEN ANWEISUNGEN"
5060 [153]"DES PROGRAMMS AUSFUEREN."
5080 [153]"WEITER MIT (W)"
5090 [133] A$
5100 [139]A$[178]"W" [167] 5120
5110 [137] 5020
5120 [153]"LOADDIESES PROGRAMM WURDE GESCHRIEBEN"
5130 [153]"VON"
5140 [153][163]6)"THOMAS SCHULZ"
5150 [153][163]6)"MUEHLENWEG 51"
5160 [153][163]6)"38448 WOLFSBURG"
5170 [153]"IM SEPTEMBER 1995"
5180 [153]"ES IST FREI VON ALLEN RECHTEN"
5185 [153]"MOECHTEN SIE DIE ANLEITUNG"
5190 [153]"WIEDERHOLEN (W) ?"
5200 [153]"BEENDEN (E) ?"
5210 [133] B$
5220 [139] B$[178]"W" [167] 5000
5230 [139] B$[178]"E" [167] 5250
5240 [137] 5120
5250 [142]
6000 [143]*******************************
6001 [143]*                             *
6002 [143]* DIESES PROGRAMM WURDE VON   *
6003 [143]*                             *
6004 [143]*      THOMAS SCHULZ          *
6005 [143]*      FRITZ WEIBERG STR 38   *
6006 [143]*      38448 WOLFSBURG        *
6007 [143]*                             *
6008 [143]*      TEL.05363/40522        *
6009 [143]*                             *
6010 [143]* AM 19 SEPTEMBER 1995        *
6011 [143]*                 BEENDET     *
6012 [143]*                             *
6013 [143]* VIEL SPASS DAMIT UND        *
6014 [143]* FAHRT NICHT SOVIEL AUTO     *
6015 [143]*                             *
6016 [143]* DENKT AN DIE UMWELT         *
6017 [143]*                      DANKE  *
6018 [143]*                             *
6019 [143]*******************************
7000 [151] 53280,2
7010 [151] 53281,2
7020 [153]"LOADMOECHTEN SIE DAS PROGRAMM"
7030 [153]"BEENDEN (E) ?"
7040 [153]"WIEDERHOLEN (W) ?"
7050 [133] F$
7060 [139] F$[178]"W" [167] 10
7070 [139] F$[178]"E" [167] 7090
7080 [137] 7000
7090 [128]